home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Online / AmiComSys / Install-images < prev    next >
Encoding:
Text File  |  2001-05-24  |  2.3 KB  |  53 lines
  1. ; Install script for images for AmiComSys 1.25+
  2. ;
  3. ; $VER: AmiComSys-image-install 1.3 (24.05.2001) Håkan Parting
  4.  
  5. (set #selimages "Do you want to use the NewIcons graphics-buttons\nor the MagicWB-graphics-buttons?")
  6. (set #selimageshelp "This version of AmiComSys have graphics here and there.\nDo you want MagicWB style graphics or the NewIcons one?\nIf you have installed a replacement graphics-set, you'd better\nspecify that. If not it would be overwritten.")
  7.  
  8.  
  9. (message
  10.     "Welcome to the AmiComSys image installer!\n\n"
  11.     "This will install one of the graphics sets.\n"
  12.     "NOTE: The installer for AmiComSys does that\n"
  13.     "automatically. But if you want to switch to\n"
  14.     "another use this script.\n"
  15.     "AmiComSys © Håkan Parting 1997-2001\n"
  16.     "Requires:\n"
  17.     "AmiComSys 1.25+ installed\n"
  18. )
  19.  
  20. (message
  21.     "\n\n\nPlease make sure that no session of AmiComSys\nis running before you proceed with this\ninstallation."
  22. )
  23.  
  24. (set DefDir (getassign "AMICOMSYS"))
  25. (if (= DefDir "") (set DefDir (getassign "MIAMI")) )
  26. (if (= DefDir "") (set DefDir (getassign "AmiTCP")) )
  27. (if (= DefDir "") (set DefDir (getassign "Inet")) )
  28.  
  29. (set #target (askdir    (prompt "Please locate your AmiComSys directory.\nThis is the directory with the Images directory.")
  30.     (help "")
  31.     (default DefDir)
  32. ))
  33.  
  34. (set instdir #target)
  35. (set @default-dest instdir)
  36.  
  37. (if (< (exists (tackon instdir "images")) 2) (makedir (tackon instdir "images")) )
  38.  
  39. ; copy over files
  40.  
  41. (set imag (askchoice (choices "NewIcons - Brecht 'Darklite' Machiels (20 colours)" "RomIcons - Andreas Kuerzinger '01 (16 colours)" "MagicWB - Andreas Kuerzinger '00 (8 colours)" "MagicWB - Mads 'Yedo' Jensen '98 (8 colours)" "I've installed another replacement\ngfx-set. If so, make sure it's done for ACS 1.25+!")
  42.                     (prompt #selimages)
  43.                     (help #selimageshelp)
  44.                     (default 1)
  45. ))
  46.  
  47. (if (= imag 0) (copyfiles (source "NIImages") (dest (tackon instdir "Images")) (all)))
  48. (if (= imag 1) (copyfiles (source "RomIcons") (dest (tackon instdir "Images")) (all)))
  49. (if (= imag 2) (copyfiles (source "MWBImages") (dest (tackon instdir "Images")) (all)))
  50. (if (= imag 3) (copyfiles (source "MWBImages2") (dest (tackon instdir "Images")) (all)))
  51. (if (= imag 4) (message "Okey, why did you run this script anyway :)"))
  52.  
  53.